home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / counter.cgi < prev    next >
Encoding:
Text File  |  2003-01-11  |  672 b   |  42 lines
  1. #!perl
  2.  
  3. #@Local#?#@Server
  4.  
  5. ### Using the version converter, 4 changes are made here when
  6. ### you press toggle, at lines 1,3,14,16,20
  7.  
  8. use strict;
  9. use Fcntl qw(:flock);
  10.  
  11. print "Content-Type: text/html\n\n";
  12.  
  13. my $semaphore_file=
  14.  'counter.sem';#?'/tmp/counter.sem';
  15. my $counter_file=
  16.  'counter.log';#?'/docs/logs/counter.log';
  17.  
  18. sub get_lock {
  19.  open(SEM,">$semaphore_file");
  20.  #?flock(SEM,LOCK_EX);
  21. }
  22.  
  23. sub release_lock {
  24.  close(SEM)
  25. }
  26.  
  27. get_lock();
  28. my $hits = 0;
  29. if (open(CF,$counter_file)) {
  30.  $hits=<CF>;
  31.  close(CF);
  32. }
  33.  
  34. $hits++;
  35. print "Hits: ";
  36. print "$hits<br>";
  37.  
  38. open(CF,">$counter_file");
  39. print CF $hits;
  40. close(CF);
  41.  
  42. release_lock();